home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / cli / master60.zoo / master / batch / menu.bat < prev    next >
Encoding:
DOS Batch File  |  1989-04-16  |  2.0 KB  |  118 lines
  1. if exec "alias switch > NUL:" {
  2.     macros.bat
  3. }
  4. alias askalias 'ask "\$1" an; if an <> "" { alias \$2 \$an; }'
  5. noecho
  6. loop {
  7. cls
  8. rem
  9. rem
  10. inverse
  11. rem
  12. rem                        M E N U
  13. rem
  14. normal
  15. rem        Main - File : $file.$ttype \-> $execfile.$typ
  16. rem
  17. rem
  18. rem
  19. rem        E - editor
  20. rem        C - compiler
  21. rem        L - linker
  22. rem        R - run program
  23. rem        M - make
  24. rem        Q - quit
  25. rem        D - defaults
  26. rem        S - save text-file
  27. rem        K - Master-Kommando
  28. rem
  29. rem
  30. get "     select : " antwort
  31.  
  32. switch antwort
  33.     case = 'e' {
  34.         ed $ed $file.$ttype
  35.         endcase
  36.     }
  37.     case = "c" {
  38.         comp $comp $file.$ttype
  39.         if err {
  40.             pause
  41.         }
  42.         endcase
  43.     }
  44.     case = "l" {
  45.         link $link $linkopt $file.o $andere
  46.         if err {
  47.             pause
  48.         }
  49.         endcase
  50.     }
  51.     case = "m" {
  52.         comp $comp $file.$ttype
  53.         if err {
  54.             pause
  55.             continue
  56.         }
  57.         link $link $linkopt $file.o $andere
  58.         if err {
  59.             pause
  60.             continue
  61.         }
  62.         $execfile $pars
  63.         if typ <> 'prg' {
  64.             get "Press a key"
  65.         }
  66.         endcase
  67.     }
  68.     case = "r" {
  69.         $execfile $pars
  70.         if typ <> 'prg' {
  71.             get "Press a key"
  72.         }
  73.         endcase
  74.     }
  75.     case = "q" {
  76.         cls
  77.         unalias askalias
  78.         quit
  79.     }
  80.     case = "d" {
  81.         cls
  82.         rem
  83.         rem
  84.         rem        DEFAULT INSTALLATION
  85.         rem
  86.         rem
  87.         rem
  88.         askalias "                        EDITOR : " ed
  89.         askalias "                      COMPILER : " comp
  90.         askalias "                        LINKER : " link
  91.         ask "                          FILE : " file
  92.         ask "                           TYP : " ttype
  93.         ask "        ausfuehrbares Programm : " execfile
  94.         if an = "" {
  95.             set execfile $file
  96.         }
  97.         ask "   erzeugter Filetyp (z.B TOS) : " typ
  98.         ask "       mitanzulinkende Objekte : " andere
  99.         ask "               Linker Optionen : " linkopt
  100.         ask "   wohin soll gesaved werden ? : " savefile
  101.         ask "         Parameter an Programm : " pars
  102.         export file ttype execfile typ andere linkopt savefile pars
  103.         endcase
  104.     }
  105.     case = "s" {
  106.         mv $savefile$file.$ttype $savefile$file.bak -o
  107.         cp $file.$ttype $savefile
  108.         endcase
  109.     }
  110.     case = "k" {
  111.         ask ">>" an
  112.         $an
  113.         pause
  114.         endcase
  115.     }
  116. endswitch
  117. }
  118.